100 DV=PEEK(186):IFDV<8THENDV=8
110 DELAY=116:POKE53280,0:POKE53281,0
120 PRINT"[147]";
130 FORI=8TO23:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT
140 PRINT"":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
150 POKE214,9:PRINT"[145]"TAB(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
160 FORI=1TO11:PRINTTAB(2)"[159]                                    [155][146][223]":NEXT
170 PRINTTAB(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
180 PRINT"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
190 POKE214,10:PRINT"[145][159]";
200 FORI=1TO11:READA$
210 PRINTSPC(20-LEN(A$)/2)""A$:A$="":NEXT
220 DELAY=DELAY+1:J=PEEK(56320)AND16:GETA$:IF(A$="")ANDJ<>0ANDDEL<116THEN220
230 A$="MEMORIES"
240 DATA"[205] [197] [205] [207] [210] [201] [197] [211]","BY [197]RNEST [194]ARKMAN
250 [131]"  (LEN)1994 BY (null)OFTDISK (null)UBLISHING"
260 [131]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
270 DATA"   [212]HIS IS THE COPYRIGHTED WORK OF
280 [131]"(null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$, (null)(null)(null) INTENDED
290 DATA"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  [210]EPORT ANY ILLEGAL
300 [131]"DISTRIBUTION OF THIS PROGRAM BY   "
310 [131]"CALLING (null)(null)ASC(null)STR$RIGHT$(null)(null) LENUSTOMER SERVICE:
320 DATA"1-800-831-2694 OR 1-318-221-8718
330 [129]I[178]DV[164]DV:[160]2:[159]2,I,2:[160]2:[139]ST[167]350
340 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]360
350 [130]:[153]""A$" NOT FOUND!":[151]186,8:[128]
360 Q$[178][199](34):[151]646,[194](53281):[153]"";
370 [153]"P(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
380 [153]"R(null):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
390 [151]635,145:[151]636,13:[151]198,6